home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
cppsum.zip
/
CPPSUMW.TXT
< prev
next >
Wrap
Text File
|
1994-06-18
|
2KB
|
51 lines
'---------------------------------------------------------------------------
' WordBasic interface definitions for CPPSUM.DLL
' DLL functions to get summary info from OLE 2.0 document files.
'
' Copyright ⌐ 1994 Somar Software, All Rights Reserved
' Send problem reports and comments to 72202.2574@compuserve.com
'
' Example of usage:
' PID_TITLE = 2
' wInitStatus = SumInfoInit
' If wInitStatus <> 0 Then
' hSumInfo = SumInfoOpenFile(".. put your file name here ..")
' If hSumInfo <> 0 Then
' s$ = String$(256, "*")
' nResult = SumInfoGetString(hSumInfo, PID_TITLE, s$, 256)
' SumInfoCloseFile(hSumInfo)
' End If
' SumInfoUninit(wInitStatus)
' EndIf
'
' Reasons for failure:
' SumInfoInit: out of memory
' SumInfoOpenFile: out of memory
' file not found
' file is not an OLE 2.0 structured storage file
' file does not contain OLE 2.0 summary info
' OLE 2.0 summary info is incorrectly formatted
' SumInfoGet... : specified property type is not available
'
' See CPPSUM.H for change log
'---------------------------------------------------------------------------
PID_TITLE = 2
PID_SUBJECT = 3
PID_AUTHOR = 4
PID_KEYWORDS = 5
PID_COMMENTS = 6
PID_TEMPLATE = 7
PID_LASTAUTHOR = 8
PID_REVNUMBER = 9
PID_APPNAME = 18
Declare Function SumInfoInit Lib "CPPSUM.DLL"() As Integer
Declare Function SumInfoOpenFile Lib "CPPSUM.DLL" \
(szPath As String) As Integer
Declare Function SumInfoGetString Lib "CPPSUM.DLL" \
(hSumInfo As Integer, pid As Long, \
lpBuf As String, cbBuf As Integer) As Integer
Declare Sub SumInfoCloseFile Lib "CPPSUM.DLL"(hSumInfo As Integer)
Declare Sub SumInfoUninit Lib "CPPSUM.DLL"(wInitStatus As Integer)